unit UFrmSplash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TFrmSplash = class(TForm)
    img: TImage;
    tmr1: TTimer;
    procedure tmr1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSplash: TFrmSplash;

implementation

{$R *.dfm}
uses SQLUtils, MainFrm, UDM;

procedure TFrmSplash.FormCreate(Sender: TObject);
var
StrFile:string;
begin
  StrFile:=extractfiledir(paramstr(0))+'\splash.jpg';
  if FileExists(StrFile) then
    img.Picture.LoadFromFile(StrFile);
end;

procedure TFrmSplash.tmr1Timer(Sender: TObject);
begin
  tmr1.Enabled:=False;
  dmSQL.GetAllObjects;
  Close;
end;

end.

